﻿Imports SecretaryToolData

Public Class frmBranchReport

	Private Sub frmBranchReport_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

		If MessageBox.Show("Would you like to mark this report as submitted to the branch?", "Mark As Submitted?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
			frmMain.MarkReportAsSubmitted()
		End If

	End Sub

	Private Sub frmBranchReport_Load(sender As Object, e As System.EventArgs) Handles Me.Load

		Dim myReport As New VM_BranchReport()
		Dim reportMonth = PublisherCardData.CurrentReportingMonth

		lblMonth.Text = reportMonth.ToString("MMMM yyyy")

		With myReport
			lblActivePublisherCount.Text = .ActivePublisherCount

			lblPubCount.Text = .PublisherCount
			lblPubBooks.Text = .PublisherBooks
			lblPubBrochures.Text = .PublisherBrochures
			lblPubHours.Text = .PublisherHours
			lblPubMagazines.Text = .PublisherMagazines
			lblPubReturnVisits.Text = .PublisherReturnVisits
			lblPubStudies.Text = .PublisherStudies

			lblAuxPioCount.Text = .AuxPioneerCount
			lblAuxPioBooks.Text = .AuxPioneerBooks
			lblAuxPioBrochures.Text = .AuxPioneerBrochures
			lblAuxPioHours.Text = .AuxPioneerHours
			lblAuxPioMagazines.Text = .AuxPioneerMagazines
			lblAuxPioReturnVisits.Text = .AuxPioneerReturnVisits
			lblAuxPioStudies.Text = .AuxPioneerStudies

			lblRegPioCount.Text = .PioneerCount
			lblRegPioBooks.Text = .PioneerBooks
			lblRegPioBrochures.Text = .PioneerBrochures
			lblRegPioHours.Text = .PioneerHours
			lblRegPioMagazines.Text = .PioneerMagazines
			lblRegPioReturnVisits.Text = .PioneerReturnVisits
			lblRegPioStudies.Text = .PioneerStudies
		End With
	End Sub

	Private Sub btnClose_Click(sender As System.Object, e As System.EventArgs) Handles btnClose.Click
		Me.Close()
	End Sub
End Class